home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NB02
/
DMO
/
FCHDIR.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
2KB
|
42 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME FCHDIR .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
$INCLUDE "DAS-NB02.INC"
COLOR 7,0
CLS
? "┌─────────────────────────────────────────────────────────────────────────
? "│ fChDIR% ( Path$ ) change directory
? "│ fMkDIR% ( Path$ ) make directory
? "│ fRmDIR% ( Path$ ) remove directory
? "├─────────────────────────────────────────────────────────────────────────
? "│ These 3 are just like the DOS functions and abide by the same rules.
? "│ Each returns -1 (TRUE) if the requested action actually took place or
? "│ not.
? "│ As these affect your drive I'll leave the testing up to you. You'll have
? "│ to change $if 0 to $if 1 below to see it work.
? "└─────────────────────────────────────────────────────────────────────────
$if 0
IF fMkDIR%( "PUREJUNK" ) THEN PRINT "MAKED THE DIRECTORY
PRINT "DIR$ SAYS: "; DIR$( "PUREJUNK", 16 )
IF fChDIR%( "PUREJUNK" ) THEN PRINT "CHANGED DIRECTORY"
IF fChDIR%( ".." ) THEN PRINT "CHANGED BACK!"
IF fRmDIR%( "PUREJUNK" ) THEN PRINT "ERASED THE DIRECTORY"
PRINT "DIR$ SAYS: "; DIR$( "PUREJUNK", 16 )
$endif